Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/tttsrc/form2.frm

Text File | 1995-05-08 | 20KB | 715 lines

VERSION 2.00
Begin Form Form2
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Playing Field"
   ClientHeight    =   1905
   ClientLeft      =   465
   ClientTop       =   3945
   ClientWidth     =   3015
   Height          =   2310
   Icon            =   FORM2.FRX:0000
   Left            =   405
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   1905
   ScaleWidth      =   3015
   Top             =   3600
   Width           =   3135
   Begin CommandButton Command11
      Caption         =   "Quit"
      Height          =   375
      Left            =   2160
      TabIndex        =   16
      Top             =   1080
      Width           =   735
   End
   Begin CommandButton Command10
      Caption         =   "About"
      Height          =   375
      Left            =   2160
      TabIndex        =   12
      Top             =   360
      Width           =   735
   End
   Begin CommandButton Command9
      BackColor       =   &H0000FF00&
      Caption         =   "?"
      Height          =   375
      Left            =   1320
      TabIndex        =   8
      Top             =   1320
      Width           =   375
   End
   Begin CommandButton Command8
      Caption         =   "?"
      Height          =   375
      Left            =   720
      TabIndex        =   7
      Top             =   1320
      Width           =   375
   End
   Begin CommandButton Command7
      Caption         =   "?"
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Top             =   1320
      Width           =   375
   End
   Begin CommandButton Command6
      Caption         =   "?"
      Height          =   375
      Left            =   1320
      TabIndex        =   5
      Top             =   720
      Width           =   375
   End
   Begin CommandButton Command5
      Caption         =   "?"
      Height          =   375
      Left            =   720
      TabIndex        =   4
      Top             =   720
      Width           =   375
   End
   Begin CommandButton Command4
      Caption         =   "?"
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   720
      Width           =   375
   End
   Begin CommandButton Command3
      Caption         =   "?"
      Height          =   375
      Left            =   1320
      TabIndex        =   2
      Top             =   120
      Width           =   375
   End
   Begin CommandButton Command2
      Caption         =   "?"
      Height          =   375
      Left            =   720
      TabIndex        =   1
      Top             =   120
      Width           =   375
   End
   Begin CommandButton Command1
      Caption         =   "?"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   375
   End
   Begin TextBox Text1
      Height          =   285
      Left            =   2520
      LinkItem        =   "Send"
      LinkTopic       =   "CRoom|Croom"
      TabIndex        =   19
      Text            =   "Text1"
      Top             =   360
      Width           =   180
   End
   Begin CommandButton Command12
      Caption         =   "Simulate Opponent"
      Height          =   255
      Left            =   2400
      TabIndex        =   18
      Top             =   1080
      Width           =   255
   End
   Begin Line Line4
      BorderColor     =   &H00FF0000&
      BorderWidth     =   3
      X1              =   1200
      X2              =   1200
      Y1              =   120
      Y2              =   1800
   End
   Begin Line Line3
      BorderColor     =   &H00FF0000&
      BorderWidth     =   3
      X1              =   600
      X2              =   600
      Y1              =   120
      Y2              =   1800
   End
   Begin Line Line2
      BorderColor     =   &H00FF0000&
      BorderWidth     =   3
      X1              =   1800
      X2              =   0
      Y1              =   1200
      Y2              =   1200
   End
   Begin Line Line1
      BorderColor     =   &H00FF0000&
      BorderWidth     =   3
      X1              =   0
      X2              =   1800
      Y1              =   600
      Y2              =   600
   End
   Begin Label Label7
      Caption         =   "Label7"
      Height          =   135
      Left            =   2520
      LinkItem        =   "Croom"
      LinkTopic       =   "Croom|Croom"
      TabIndex        =   17
      Top             =   360
      Width           =   135
   End
   Begin Label Label6
      Caption         =   "0"
      Height          =   255
      Left            =   2400
      TabIndex        =   15
      Top             =   360
      Width           =   135
   End
   Begin Label Label5
      Caption         =   "0"
      Height          =   255
      Left            =   2280
      TabIndex        =   14
      Top             =   360
      Width           =   135
   End
   Begin Label Label4
      Caption         =   "0"
      Height          =   255
      Left            =   2400
      TabIndex        =   13
      Top             =   360
      Width           =   135
   End
   Begin Label Label3
      Caption         =   "Tie"
      Height          =   255
      Left            =   2640
      TabIndex        =   11
      Top             =   360
      Width           =   135
   End
   Begin Label Label2
      Caption         =   "Loss"
      Height          =   255
      Left            =   2520
      TabIndex        =   10
      Top             =   360
      Width           =   135
   End
   Begin Label Label1
      Caption         =   "Win"
      Height          =   255
      Left            =   2280
      TabIndex        =   9
      Top             =   360
      Width           =   135
   End
End

Sub Command1_Click ()
    C1 = 1
    Command1.Enabled = False
    Command1.FontSize = 12
    Command1.Caption = Marker
    setmodes
   Text1 = "{d " + "TTT" + "," + opponent + "," + "1"
   Text1.LinkMode = 2    '  This takes the text in the
   Text1.LinkPoke        '  edit control and sends it via
   Text1.LinkMode = 0    '  DDE to the C-Room "Send Text"
   Text1 = ""

End Sub

Sub Command10_Click ()
    'msg = "Copyright 1994, Virtual Systems V 0.1b"
    'MsgBox msg
    AboutTTT.Show
End Sub

Sub Command11_Click ()
    End
End Sub

Sub Command12_Click ()
   Text1 = "{d " + Text1 + "," + yourself + "," + Chr$(48 + (Int(Rnd(1) * 9)))
   Text1.LinkMode = 2    '  This takes the text in the
   Text1.LinkPoke        '  edit control and sends it via
   Text1.LinkMode = 0    '  DDE to the C-Room "Send Text"
   Text1 = ""
End Sub

Sub Command2_Click ()
   C2 = 1
    Command2.Enabled = False
    Command2.FontSize = 12
    Command2.Caption = Marker
    setmodes
   Text1 = "{d " + "TTT" + "," + opponent + "," + "2"
   Text1.LinkMode = 2    '  This takes the text in the
   Text1.LinkPoke        '  edit control and sends it via
   Text1.LinkMode = 0    '  DDE to the C-Room "Send Text"
   Text1 = ""


 '   If Whowon() = 1 Then
 '       msg = "You Win!!"
 '       MsgBox msg
 '   Else
 '       If Whowon() = 2 Then
 '           msg = "You Lose."
 '           MsgBox msg
 '       Else
 '           If Whowon() = 3 Then
 '               msg = "It's a tie."
 ''               MsgBox msg
  '          End If
  '      End If
  '  End If
End Sub

Sub Command3_Click ()

        C3 = 1
    Command3.Enabled = False
    Command3.FontSize = 12
    Command3.Caption = Marker
    setmodes
   Text1 = "{d " + "TTT" + "," + opponent + "," + "3"
   Text1.LinkMode = 2    '  This takes the text in the
   Text1.LinkPoke        '  edit control and sends it via
   Text1.LinkMode = 0    '  DDE to the C-Room "Send Text"
   Text1 = ""

End Sub

Sub Command4_Click